From e4c26820e2ad5875518c85b58c617620bddf2449 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Wed, 29 Feb 2012 23:05:42 +0800 Subject: [PATCH] Reset sys to nil in define-abbrevs Otherwise all abbrevs after are regarded as system ones and not saved to disk, causing data loss. --- lisp/ChangeLog | 4 ++++ lisp/abbrev.el | 3 ++- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 934ce8b9f0f..e709ccf272d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-02-29 Leo Liu + + * abbrev.el (define-abbrevs): Reset sys to nil. + 2012-02-28 Thierry Volpiatto * files.el (file-equal-p): Rename from `files-equal-p'. diff --git a/lisp/abbrev.el b/lisp/abbrev.el index ade36f2f9a0..7beee0a1752 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -191,7 +191,8 @@ the ones defined from the buffer now." (not (eolp))) (setq name (read buf) count (read buf)) (if (equal count '(sys)) - (setq sys t count (read buf))) + (setq sys t count (read buf)) + (setq sys nil)) (setq exp (read buf)) (skip-chars-backward " \t\n\f") (setq hook (if (not (eolp)) (read buf))) -- 2.30.2